Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Microsoft.Practices.EnterpriseLibrary.Data.Sql

Public MustInherit Class Base

    Protected m_database As Database

    Sub New()
        m_database = DatabaseFactory.CreateDatabase("cnnTP2")
    End Sub

    Sub New(ByVal database As Database)
        m_database = database
    End Sub

    Public Property DataBase() As Database
        Get
            Return m_database
        End Get
        Set(ByVal value As Database)
            m_database = value
        End Set
    End Property

End Class